﻿Imports ModuloFinanceiro
Public Class FinanceiroUC
    'Sub AtualizaSize()
    '    Dim Bancos, Contas, FluxoCaixa, ContasPagar, ContasReceber, CentroCusto, FormasPagamento, Caixa, PlanoContas As String
    '    Bancos = "Permite o cadastramento de Bancos ou Contas utilizados pela empresa." & _
    '                        "Poderá ser realizado as seguintes operações: Incluir, Alterar, Excluir e Localizar "
    '    Contas = "Permite a criação e o controle de vários tipos de contas, seja bancárias ou não bancárias." & _
    '                        "Poderá ser realizado as seguintes operações: incluir, Alterar, Excluir e Localizar"
    '    FluxoCaixa = "Permite a visualização do fluxo de entrada e saída financeira da empresa." & _
    '                        "Poderá ser utilizado filtros para melhor customização dos dados apresentados."
    '    ContasPagar = "Permite o controle e gerenciamento dos lançamentos no Contas a pagar" & _
    '                        "Poderá localizar, dar baixas, controlar pagamentos de acordo com os vencimentos e realizar lançamentos"
    '    ContasReceber = "Permite o controle e gerenciamento dos lançamentos provenientes das Vendas " & _
    '                        "Poderá controlar os recursos de pagamentos a prazo dos clientes e recursos alocados a prazo"
    '    Caixa = "Permite a abertura e fechamento do caixa do dia de forma a controlar o fluxo financeiro diário"
    '    PlanoContas = "Permite a classificação das contas da empresa, seja de entrada ou saída, de forma a organizar o gerenciamento " & _
    '                        "Permite a inclusão, exclusão e alteração de contas."
    '    FormasPagamento = "Permite o cadastro de formas de pagamento utilizados em vários locais do Sistema Siga"
    '    CentroCusto = "Permite a inclusão de Centro de Custos para a Classificação de Contas" & _
    '                    "Permite a inclusão, exclusão e alteração de Centro Custos "

    '    Dim i As Integer
    '    TSLBancos.Text = ""
    '    TSLContas.Text = ""
    '    TSLFluxoCaixa.Text = ""
    '    TSLContasPagar.Text = ""
    '    TSLContasReceber.Text = ""
    '    TSLCaixa.Text = ""
    '    TSLPlanoContas.Text = ""
    '    TSLFormaPgto.Text = ""
    '    TSLCentroCusto.Text = ""

    '    TSLBancos.Text = Bancos
    '    For i = Me.Size.Width / 7 To Len(TSLBancos.Text) Step Me.Size.Width / 7
    '        TSLBancos.Text = TSLBancos.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLContas.Text = Contas
    '    For i = Me.Size.Width / 7 To Len(TSLContas.Text) Step Me.Size.Width / 7
    '        TSLContas.Text = TSLContas.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLFluxoCaixa.Text = FluxoCaixa
    '    For i = Me.Size.Width / 7 To Len(TSLFluxoCaixa.Text) Step Me.Size.Width / 7
    '        TSLFluxoCaixa.Text = TSLFluxoCaixa.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLContasPagar.Text = ContasPagar
    '    For i = Me.Size.Width / 7 To Len(TSLContasPagar.Text) Step Me.Size.Width / 7
    '        TSLContasPagar.Text = TSLContasPagar.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLContasReceber.Text = ContasReceber
    '    For i = Me.Size.Width / 7 To Len(TSLContasReceber.Text) Step Me.Size.Width / 7
    '        TSLContasReceber.Text = TSLContasReceber.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLCaixa.Text = Caixa
    '    For i = Me.Size.Width / 7 To Len(TSLCaixa.Text) Step Me.Size.Width / 7
    '        TSLCaixa.Text = TSLCaixa.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLPlanoContas.Text = PlanoContas
    '    For i = Me.Size.Width / 7 To Len(TSLPlanoContas.Text) Step Me.Size.Width / 7
    '        TSLPlanoContas.Text = TSLPlanoContas.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLFormaPgto.Text = FormasPagamento
    '    For i = Me.Size.Width / 7 To Len(TSLFormaPgto.Text) Step Me.Size.Width / 7
    '        TSLFormaPgto.Text = TSLFormaPgto.Text.Insert(i, vbCrLf)
    '    Next
    '    TSLCentroCusto.Text = CentroCusto
    '    For i = Me.Size.Width / 7 To Len(TSLCentroCusto.Text) Step Me.Size.Width / 7
    '        TSLCentroCusto.Text = TSLCentroCusto.Text.Insert(i, vbCrLf)
    '    Next
    'End Sub

    'Private Sub FinanceiroUC_Resize(sender As System.Object, e As System.EventArgs) Handles MyBase.Resize
    '    AtualizaSize()
    'End Sub

    Private Sub TSBContas_Click(sender As System.Object, e As System.EventArgs) Handles TSBContas.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New ContasUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)

    End Sub

    Private Sub TSBBancos_Click(sender As System.Object, e As System.EventArgs) Handles TSBBancos.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New BancosUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    Private Sub TSBCaixa_Click(sender As System.Object, e As System.EventArgs) Handles TSBCaixa.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New CaixasUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    Private Sub TSBContasPagar_Click(sender As System.Object, e As System.EventArgs) Handles TSBContasPagar.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New ContasPagarUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    Private Sub TSBContasReceber_Click(sender As System.Object, e As System.EventArgs) Handles TSBContasReceber.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New ContasReceberUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub
    Private Sub TSBFluxoCaixa_Click(sender As System.Object, e As System.EventArgs)
        Dim frm As New FluxodeCaixaFRM
        frm.ShowDialog()
        frm.Dispose()
        frm = Nothing
    End Sub
    Private Sub TSBPlanoContas_Click(sender As System.Object, e As System.EventArgs) Handles TSBPlanoContas.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New PlanodeContasUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    Private Sub TSBFormaPgto_Click(sender As System.Object, e As System.EventArgs) Handles TSBFormaPgto.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New FormaPagamentoUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    Private Sub TSBCentroCusto_Click(sender As System.Object, e As System.EventArgs) Handles TSBCentroCusto.Click
        frmPrincipal.TPFinanceiro.Controls.Clear()
        Dim uc = New CentroCustoUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPFinanceiro.Controls.Add(uc)
    End Sub

    
End Class
